home *** CD-ROM | disk | FTP | other *** search
/ Light ROM 1 / LIGHT-ROM 1 (Amiga Library Services)(1994).iso / ffdisks / d897.lha / EPP / PModules / listClear.e < prev    next >
Text File  |  1993-06-26  |  234b  |  14 lines
  1. OPT TURBO
  2.  
  3. PROC listClear (theList)
  4.   DEF listCurrent
  5.   listCurrent := ^theList
  6.   WHILE listCurrent <> NIL
  7.     Dispose (listCurrent)
  8.     listCurrent := Next (listCurrent)
  9.   ENDWHILE
  10.   DisposeLink (^theList)
  11. ENDPROC
  12.   /* listClear */
  13.  
  14.